******************
**** Figure 7 ****
******************

* Run table b12 to get estimates required for plotting *
do "$dofiles/table b12" 


set scheme s1mono

**Basics
coefplot Identity || legal || Cutoff || DebtAmount || Norms, keep(tdummy2 tdummy3) xline(0) eqstrict ciopts(recast(rspikelin) lcolor(black)) mlabposition(2) mlabgap(*2) mlabel("{it:p} = " + string(@pval,"%9.3f") + " []")  citop  coeflabel(tdummy2="P-Basic" tdummy3="N-Basic" tdummy4="P-Req" tdummy5="P-Attr" tdummy6="N-Req" tdummy7="N-Attr") format(%9.1f)  ///
levels(95) graphregion(color(white) lcolor(black)) label(labsize(vtiny)) ytick(0) bycoefs ylabel(1 "Self-perception (1-5)" 2 "Aware of legal consequences (binary)" 3 "Aware of disconnections (binary)" 4 "Debt before facing sanctions (in 1000 Euros)" 5 "Social norms (0-1)") xlabel(-0.5(.1)0.5, angle(90) nogextend) byopts(xrescale) ///
symbol(o) mlcolor(black) msize(small) mlabcolor(black)  name(basic)

** PIDAS **
coefplot Identity || legal || Cutoff || DebtAmount  ||  SaliencePos || PlacedStickerPos || Norms, keep(tdummy4 tdummy5) xline(0) eqstrict ciopts(recast(rspikelin) lcolor(black)) mlabposition(2) mlabgap(*2) mlabel("{it:p} = " + string(@pval,"%9.3f") + " []") mcolor(black) citop  coeflabel(tdummy2="P-Basic" tdummy3="N-Basic" tdummy4="P-Req" tdummy5="P-Attr" tdummy6="N-Req" tdummy7="N-Attr") format(%9.1f) ///
levels(95) graphregion(color(white) lcolor(black)) label(labsize(vtiny)) ytick(0) xlabel(-0.5(.1)0.5, angle(90) nogextend)  byopts(xrescale) bycoefs ylabel(1 "Self-perception (1-5)" 2 "Aware of legal consequences (binary)" 3 "Aware of disconnections (binary) " 4 "Debt before facing sanctions (in 1000 Euros)"  5 "Recalls sticker immediately (binary)" 6 "Placed sticker as reminder (binary)" 7 "Social norms (0-1)") ///
symbol(o) mlcolor(black) msize(small) mlabcolor(black) name(pida) 

** NIDAS **
coefplot Identity || legal || Cutoff || DebtAmount || SalienceNeg || PlacedStickerNeg || Norms , keep(tdummy6 tdummy7) xline(0) eqstrict ciopts(recast(rspikelin) lcolor(black)) mlabposition(2) mlabgap(*2) mlabel("{it:p} = " + string(@pval,"%9.3f") + " []") mcolor(black) citop  coeflabel(tdummy2="P-Basic" tdummy3="N-Basic" tdummy4="P-Req" tdummy5="P-Attr" tdummy6="N-Req" tdummy7="N-Attr") format(%9.1f) ///
levels(95) graphregion(color(white) lcolor(black)) label(labsize(vtiny)) ytick(0) xlabel(-0.5(.1)0.5, angle(90) nogextend)  byopts(xrescale)  bycoefs ylabel(1 "Self-perception (1-5)" 2 "Aware of legal consequences (binary)" 3 "Aware of disconnections (binary)" 4 "Debt before facing sanctions (in 1000 Euros)" 5 "Recalls sticker immediately (binary)" 6 "Placed sticker as reminder (binary)" 7 "Social norms (0-1)") ///
symbol(o) mlcolor(black) msize(small) mlabcolor(black) name(nida) 

graph combine basic pida nida,  graphregion(color(white) lcolor(black)) col(1) xcommon imargin(0 0 0 0)
graph drop basic pida nida
graph export "$filepath/output_logs/figure 7.pdf", replace

